Imports TeamUp.GarantiaTransacional
Imports Conexao

Public Class DaDependente
    Inherits Model

    Public Sub New(ByVal objGarantiaTransacional As GTransacional)
        GarantiaTransacional = objGarantiaTransacional
    End Sub

    Public Sub cadastrarDependente(ByVal strCodFuncionario As String, ByVal strNome As String, ByVal strNumero As String)
        Dim strSql As String
        Dim objConBanco As ConexaoBanco = New ConexaoBanco

        Try
            strSql = "Insert into dependente(codigo_funcionario,nome,numero)values( " + strCodFuncionario + ",'" + strNome + "'," + strNumero + ")"
            objConBanco.executarSP(strSql, GarantiaTransacional.getConexao, GarantiaTransacional.getTransacao)

        Finally
            objConBanco = Nothing
        End Try
    End Sub


End Class
